Excel VBA关闭消息提示警告窗口

您所在的位置:网站首页 vba 关闭刷新屏幕 Excel VBA关闭消息提示警告窗口

Excel VBA关闭消息提示警告窗口

2022-09-12 10:50| 来源: 网络整理| 查看: 265

在excel应用程序中,我们在执行代码的时候,会弹出是否要确认执行该处理提示框。

当然这个提示框不是我们用msgbox函数做出来的,而是系统自带用来防止误操作带来的影响。

但是有时候我们并不希望有这个提示框,因为会影响我们的操作效率。那么如何去掉这个提示框呢?

此代码的作用是删除工作簿中所有非正在活动的表格。运行程序,你会发现每次删除都会弹出下面的对话框

Sub delSheet()         Dim sht As Worksheet     For Each sht In Worksheets                 If sht.Name  ActiveSheet.Name Then             sht.Delete         End If             Next         End Sub

blob.png

解决办法:

添加DisplayAlerts属性为FALSE,可以关闭程序运行中是否显示警告信息。

注意:设置为false,要谨记在程序运行完重新设置为true!

Sub delSheet()         Dim sht As Worksheet     Application.DisplayAlerts = False     For Each sht In Worksheets                  If sht.Name  ActiveSheet.Name Then             sht.Delete         End If             Next         Application.DisplayAlerts = True End Sub



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3